Mac Action 1996 January/mac-action-07.iso/mac/Inside Action/Total Distortion Big Demo/beTDTips.Dxr/00017.ls

Text File | 1995-06-05 | 1.3 KB | 84 lines

on JumpPage n
  global NowBPage
  set NowBPage to n
  go(string(n))
end

on PutAway
  puppetSound(0)
  go("exit")
end

on BookHelp
  Tag()
  go("help")
end

on initbook n
  global NowBPage, BPageMax
  set the immediate of sprite n to 1
  set NowBPage to 1
  set BPageMax to n
end

on PageUp
  global NowBPage, BPageMax
  if NowBPage = BPageMax then
    exit
  else
    set NowBPage to NowBPage + 1
  end if
  puppetSound("BookPage.SE.1")
  go(string(NowBPage))
end

on LastPage
  global NowBPage, BPageMax
  puppetSound("Kick.SE.1")
  go(string(BPageMax))
  set NowBPage to BPageMax
end

on FirstPage
  global NowBPage, BPageMax
  puppetSound("Kick.SE.1")
  go("1")
  set NowBPage to 1
end

on PageDN
  global NowBPage, BPageMax
  if NowBPage = 1 then
    exit
  else
    set NowBPage to NowBPage - 1
  end if
  puppetSound("BookPage.SE.2")
  go(string(NowBPage))
end

on locSprite n
  set Where to the left of sprite n
  put ", " & the top of sprite n after Where
  return Where
end

on Tag
  global tframe, tMovie, tPath
  set tframe to the frame
  set tPath to the pathName
  set tMovie to the movie
end

on gotag
  global tframe, tMovie, tPath
  if (tMovie = 0) or (tframe = 0) then
    exit
  end if
  if (the pathName & the movie) = (tPath & tMovie) then
    go(tframe)
  else
    go(tframe, tPath & tMovie)
  end if
end